home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 90 / CD Actual 90.iso / Software3D / VirtualLight / VLight1.3win32.exe / Examples / Level2 / closeup.vib < prev    next >
Encoding:
Text File  |  2002-10-07  |  1.2 KB  |  42 lines
  1. ReadArchive "statics.vib"
  2.  
  3. Camera [ (1.5,3,-5),(0,-0.3,0),(0,1,0)
  4.    FieldOfView 41
  5.    Format(640,480)
  6.    FrameAspectRatio 4/3
  7.    Antialiasing 2
  8. ]
  9.  
  10. Media(MIE, 100, 14, 0.21, 0.125)
  11. Photons(30000, 0, 0)
  12.  
  13. SpotLight [ (10,7,5.5), (0,0,0), 10, 20, 1
  14.             Decay QUADRATIC Intensity (1,1,1)*450 MediaInteraction Bulb 1.0 ]
  15.  
  16. Declare glass = Shader [ FunctionalSurface [
  17.    Color '0,0,0'
  18.    Ka 0.025
  19.    Kd 0.0
  20.    Ks 0.3
  21.    Kt((0.98*|N.I|<0.175?0.175 : 0.98*|N.I|), 1.45, '1,1,1')
  22.    Kr 0.1
  23.    BlinnSpecularBRDF 14
  24.    Caustics 0.475
  25.    Dispersion(1.08, 14)
  26.   ]
  27. ]
  28.  
  29. Declare checker_map = SpectrumOfColors( [0.0, '0.1,0.1,0.1', 0.5, '0.1,0.1,0.1']
  30.                                         [0.5, '1,1,1', 1.01, '1,1,1'] )
  31.  
  32. Declare BWchecker = Shader [ FunctionalSurface [ Kd 0.95 Color checker_map[Checker] ] ]
  33.  
  34. Shape [ Cone((-2,-2,0), 0.5, (-2,1,0), 0.15) glass ]
  35. Shape [ Sphere((-2, 1.3, 0), 0.35)  glass ]
  36. Shape [ Cone((0,-2,0), 0.5, (0,1,0), 0.15) glass ]
  37. Shape [ Sphere((0, 1.3, 0), 0.35)  glass ]
  38. Shape [ Cone((2,-2,0), 0.5, (2,1,0), 0.15) glass ]
  39. Shape [ Sphere((2, 1.3, 0), 0.35)  glass ]
  40.  
  41. Shape [ Polygon(4, (-20,-2, -20), (-20,-2, 20), (20,-2, 20), (20,-2, -20)) BWchecker ]
  42.